home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 135 / 135.d81 / fontastic demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  200 lines
  1. 110 ifa=0thena=1:load"demo.font",8,1
  2. 120 poke56,112:clr
  3. 130 poke53265,0:poke648,112
  4. 140 poke56576,(peek(56576)and252)or2
  5. 150 poke53272,206
  6. 160 poke53265, 0
  7. 170 poke53281, 6:poke53280, 6
  8. 180 poke53282, 82
  9. 190 poke53283, 73
  10. 200 poke53284, 96
  11. 210 print"[147][144]                    ";
  12. 220 print"                    ";
  13. 230 print"                    ";
  14. 240 print"                    ";
  15. 250 print"         [166][167][167][167][167][167][167][167][167][167][167]";
  16. 260 print"[167][167][167][167][167][167][167][167][167][167]]         ";
  17. 270 print"         [168]F[181][160]{$60}[160]EDIT[160]";
  18. 280 print"CHARACTER[160][144][         ";
  19. 290 print"         [168]F[183][160]{$60}[160]DRAW[160]";
  20. 300 print"WITH[160]CHAR[160][144][         ";
  21. 310 print"         [168]F[185][160]{$60}[160]SCREE";
  22. 320 print"N[160]EDITOR[160][160][144][         ";
  23. 330 print"         [168]F[187][160]{$60}[160]ROTAT";
  24. 340 print"E[160]SCREEN[160][160][144][         ";
  25. 350 print"         [168]F[182][160]{$60}[160]LOAD[160]";
  26. 360 print"FONT[160][160][160][160][160][160][144][         ";
  27. 370 print"         [168]F[184][160]{$60}[160]LOAD[160]";
  28. 380 print"SCREEN[160][160][160][160][144][         ";
  29. 390 print"         [168]F[186][160]{$60}[160]SAVE[160]";
  30. 400 print"FONT[160][160][160][160][160][160][144][         ";
  31. 410 print"         [168]F[188][160]{$60}[160]SAVE[160]";
  32. 420 print"SCREEN[160][160][160][160][144][         ";
  33. 430 print"         [168][160][160][160][160][160][160][160][160][160][160]";
  34. 440 print"[160][160][160][160][160][160][160][160][160][160][         ";
  35. 450 print"         \[[[[[[[[[[";
  36. 460 print"[[[[[[[[[[[         ";
  37. 470 print"                    ";
  38. 480 print"                    ";
  39. 490 print"      &'''''''''''''";
  40. 500 print"'''''''''''''[146]]      ";
  41. 510 print"      ([158]c @ copy char";
  42. 520 print" to char     [144][146][      ";
  43. 530 print"      ([158]d @ disk dire";
  44. 540 print"ctory        [144][146][      ";
  45. 550 print"      ([158]e @ extended ";
  46. 560 print"color mode   [144][146][      ";
  47. 570 print"      ([158]m @ memorize ";
  48. 580 print"character    [144][146][      ";
  49. 590 print"      ([158]o @ toggle cu";
  50. 600 print"rsor on off  [144][146][      ";
  51. 610 print"      ([158]s @ slide cha";
  52. 620 print"racter       [144][146][      ";
  53. 630 print"      ([158]t @ toggle sw";
  54. 640 print"itch ability [144][146][      ";
  55. 650 print"      (             ";
  56. 660 print"             [146][      ";
  57. 670 print"      \[[[[[[[[[[[[[";
  58. 680 print"[[[[[[[[[[[[[[      ";
  59. 690 print"                    ";
  60. 700 print"                   ";
  61. 710 poke29671, 32
  62. 720 poke56295, 0
  63. 730 poke53265, 91
  64. 740 poke198, 0:wait198, 1
  65. 750 :
  66. 760 poke53265, 0
  67. 770 poke53281, 9:poke53280, 9
  68. 780 poke53282, 118
  69. 790 poke53283, 104
  70. 800 poke53284, 96
  71. 810 print"[147][149][[[[[[[[[[[[[[[159] june ";
  72. 820 print"5==7 [144][146]$[149][[[[[[[[[[[[[[";
  73. 830 print"[[[[[[[[[[[[[[[144]#)))))";
  74. 840 print")))))%[149][[[[[[[[[[[[[[";
  75. 850 print"[[[[[[[[[[[[[[[[[[[[";
  76. 860 print"[[[[[[[[[[[[[[[[[[[[";
  77. 870 print"[[[150][160]SUN[160][160]MON[160][160]TUE[160][160]WE";
  78. 880 print"D[160][160]THU[160][160]FRI[160][160]SAT[160][144]$[149][[";
  79. 890 print"[[[158][[[[*[[[[*[[[[*[[[";
  80. 900 print"[*[[[[*[172][[[*[173][[[*[144]*[149][[";
  81. 910 print"[[[158][[[[*[[[[*[[[[*[[[";
  82. 920 print"[*[[[[*[[[[*[[[[*[144]*[149][[";
  83. 930 print"[[[158][[[[*[[[[*[[[[*[[[";
  84. 940 print"[*[[[[*[[[[*[[[[*[144]*[149][[";
  85. 950 print"[[[158]))))%))))%))))%)))";
  86. 960 print")%))))%))))%))))%[144]*[149][[";
  87. 970 print"[[[158][174][[[*[175][[[*[176][[[*[177][[";
  88. 980 print"[*[178][[[*[179][[[*[180][[[*[144]*[149][[";
  89. 990 print"[[[158][[[[*[[[[*[[[[*[[[";
  90. 1000 print"[*[[[[*[[[[*[[[[*[144]*[149][[";
  91. 1010 print"[[[158][[[[*[[[[*[[[[*[[[";
  92. 1020 print"[*[[[[*[[[[*[[[[*[144]*[149][[";
  93. 1030 print"[[[158]))))%))))%))))%)))";
  94. 1040 print")%))))%))))%))))%[144]*[149][[";
  95. 1050 print"[[[158][172][171][[*[172][172][[*[172][173][[*[172][174][";
  96. 1060 print"[*[172][175][[*[172][176][[*[172][177][[*[144]*[149][[";
  97. 1070 print"[[[158][[[[*[[[[*[[[[*[[[";
  98. 1080 print"[*[[[[*[[[[*[[[[*[144]*[149][[";
  99. 1090 print"[[[158][[[[*[[[[*[[[[*[[[";
  100. 1100 print"[*[[[[*[[[[*[[[[*[144]*[149][[";
  101. 1110 print"[[[158]))))%))))%))))%)))";
  102. 1120 print")%))))%))))%))))%[144]*[149][[";
  103. 1130 print"[[[158][172][178][[*[172][179][[*[172][180][[*[173][171][";
  104. 1140 print"[*[173][172][[*[173][173][[*[173][174][[*[144]*[149][[";
  105. 1150 print"[[[158][[[[*[[[[*[[[[*[[[";
  106. 1160 print"[*[[[[*[[[[*[[[[*[144]*[149][[";
  107. 1170 print"[[[158][[[[*[[[[*[[[[*[[[";
  108. 1180 print"[*[[[[*[[[[*[[[[*[144]*[149][[";
  109. 1190 print"[[[158]))))%))))%))))%)))";
  110. 1200 print")%))))%))))%))))%[144]*[149][[";
  111. 1210 print"[[[158][173][175][[*[173][176][[*[173][177][[*[173][178][";
  112. 1220 print"[*[173][179][[*[173][180][[*[174][171][[*[144]*[149][[";
  113. 1230 print"[[[158][[[[*[[[[*[[[[*[[[";
  114. 1240 print"[*[[[[*[[[[*[[[[*[144]*[149][[";
  115. 1250 print"[[[158][[[174][172]*[[[[*[[[[*[[[";
  116. 1260 print"[*[[[[*[[[[*[[[[*[144]*[149][[";
  117. 1270 print"[[[158]))))%))))%))))%)))";
  118. 1280 print")%))))%))))%))))%[144]*[149][[";
  119. 1290 print"[[[144]#)))))))))))))))))";
  120. 1300 print")))))))))))))))))%[149][";
  121. 1310 poke29671, 27
  122. 1320 poke56295, 9
  123. 1330 poke53265, 91
  124. 1340 poke198, 0:wait198, 1
  125. 1350 :
  126. 1360 poke53265, 0
  127. 1370 poke53281, 0:poke53280, 0
  128. 1380 poke53282, 118
  129. 1390 poke53283, 193
  130. 1400 poke53284, 64
  131. 1410 print"[147]      [154][172][[*[146][173][[*[146][174][[*[146]] ";
  132. 1420 print"  [154][175][[*[146][176][[*[146][177][[*[146]]     ";
  133. 1430 print"      [154][[[*[146][[[*[146][[[*[159][146][190] ";
  134. 1440 print"  [154][[[*[146][[[*[146][[[*[146][190][159]     ";
  135. 1450 print"      [154])))%)))%)))%[159][146][190] ";
  136. 1460 print"  [154])))%)))%)))%[146][190][159]     ";
  137. 1470 print"  [154][178][[*[146][[[*[146][[[*[146][[[*[159][146][190] ";
  138. 1480 print"  [154][179][[*[146][[[*[146][[[*[146][180][[*[146]] ";
  139. 1490 print"  [154][[[*[146][[[*[146][[[*[146][[[*[159][146][190] ";
  140. 1500 print"  [154][[[*[146][[[*[146][[[*[146][[[*[159][146][190] ";
  141. 1510 print"  [154])))%)))%)))%)))%[159][146][190] ";
  142. 1520 print"  [154])))%)))%)))%)))%[159][146][190] ";
  143. 1530 print"  [154][172][171][*[146][[[*[159][146]{$7e}{$7f}{$7f}{$7f}[154][172][172][*[146][172][173]";
  144. 1540 print"[*[146][[[*[159][146]{$7e}{$7f}{$7f}{$7f}[154][172][174][*[146][[[*[159][146][190] ";
  145. 1550 print"  [154][[[*[146][[[*[159][146][190]   [154][[[*[146][[";
  146. 1560 print"[*[146][[[*[159][146][190]   [154][[[*[146][[[*[159][146][190] ";
  147. 1570 print"  [154])))%)))%[159][146][190]   [154])))%))";
  148. 1580 print")%)))%[159][146][190]   [154])))%)))%[159][146][190] ";
  149. 1590 print"  [154][172][175][*[146][[[*[146][172][176][*[159][146]{$7e}{$7f}{$7f}{$7f}[154][[";
  150. 1600 print"[*[159][146]{$7e}{$7f}{$7f}{$7f}[154][172][177][*[146][[[*[146][[[*[159][146][190] ";
  151. 1610 print"  [154][[[*[146][[[*[146][[[*[159][146][190]   [154][[";
  152. 1620 print"[*[159][146][190]   [154][[[*[146][[[*[146][[[*[159][146][190] ";
  153. 1630 print"  [154])))%)))%)))%[159][146][190]   [154]))";
  154. 1640 print")%[159][146][190]   [154])))%)))%)))%[159][146][190] ";
  155. 1650 print"  \[154]{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}[172][178][*[146][[[*[146][[";
  156. 1660 print"[*[146][[[*[146][[[*[159][146]{$7e}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}[191] ";
  157. 1670 print"          [154][[[*[146][[[*[146][[";
  158. 1680 print"[*[146][[[*[146][[[*[159][146][190]         ";
  159. 1690 print"          [154])))%)))%))";
  160. 1700 print")%)))%)))%[159][146][190]         ";
  161. 1710 print"  [154][172][179][*[146][172][180][*[146][[[*[159][146]{$7e}{$7f}{$7f}{$7f}[154][[";
  162. 1720 print"[*[159][146]{$7e}{$7f}{$7f}{$7f}[154][173][171][*[146][173][172][*[146][173][173][*[146]] ";
  163. 1730 print"  [154][[[*[146][[[*[146][[[*[159][146][190]   [154][[";
  164. 1740 print"[*[159][146][190]   [154][[[*[146][[[*[146][[[*[159][146][190] ";
  165. 1750 print"  [154])))%)))%)))%[159][146][190]   [154]))";
  166. 1760 print")%[159][146][190]   [154])))%)))%)))%[159][146][190] ";
  167. 1770 print"  [154][173][174][*[146][[[*[159][146]{$7e}{$7f}{$7f}{$7f}[154][173][175][*[146][[";
  168. 1780 print"[*[146][173][176][*[159][146]{$7e}{$7f}{$7f}{$7f}[154][173][177][*[146][[[*[159][146][190] ";
  169. 1790 print"  [154][[[*[146][[[*[159][146][190]   [154][[[*[146][[";
  170. 1800 print"[*[146][[[*[159][146][190]   [154][[[*[146][[[*[159][146][190] ";
  171. 1810 print"  [154])))%)))%[159][146][190]   [154])))%))";
  172. 1820 print")%)))%[159][146][190]   [154])))%)))%[159][146][190] ";
  173. 1830 print"  [154][173][178][*[146][[[*[146][173][179][*[14